home *** CD-ROM | disk | FTP | other *** search
- object SQLEditForm: TSQLEditForm
- Left = 244
- Top = 113
- AutoScroll = False
- Caption = 'CommandText Editor'
- ClientHeight = 323
- ClientWidth = 524
- Color = clBtnFace
- Constraints.MinHeight = 200
- Constraints.MinWidth = 300
- ParentFont = True
- OldCreateOrder = True
- Position = poScreenCenter
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object MetaInfoSQLSplitter: TSplitter
- Left = 159
- Top = 19
- Width = 3
- Height = 269
- Cursor = crHSplit
- MinSize = 100
- OnCanResize = MetaInfoSQLSplitterCanResize
- OnMoved = MetaInfoSQLSplitterMoved
- end
- object SQLMemo: TMemo
- Left = 162
- Top = 19
- Width = 362
- Height = 269
- Align = alClient
- HideSelection = False
- TabOrder = 2
- OnEnter = SQLMemoEnter
- OnExit = SQLMemoExit
- end
- object TopPanel: TPanel
- Left = 0
- Top = 0
- Width = 524
- Height = 19
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 3
- object TableListLabel: TLabel
- Left = 3
- Top = 4
- Width = 35
- Height = 13
- Caption = '&Tables:'
- FocusControl = TableList
- end
- object SQLLabel: TLabel
- Left = 166
- Top = 3
- Width = 24
- Height = 13
- Caption = '&SQL:'
- FocusControl = SQLMemo
- end
- end
- object ButtonPanel: TPanel
- Left = 0
- Top = 288
- Width = 524
- Height = 35
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 0
- object Image1: TImage
- Left = 51
- Top = 16
- Width = 10
- Height = 6
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- Transparent = True
- Visible = False
- end
- object OkButton: TButton
- Left = 269
- Top = 5
- Width = 75
- Height = 25
- Anchors = [akRight, akBottom]
- Caption = '&OK'
- Default = True
- ModalResult = 1
- TabOrder = 0
- end
- object CancelButton: TButton
- Left = 354
- Top = 5
- Width = 75
- Height = 25
- Anchors = [akRight, akBottom]
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object HelpButton: TButton
- Left = 439
- Top = 5
- Width = 75
- Height = 25
- Anchors = [akRight, akBottom]
- Caption = '&Help'
- TabOrder = 2
- OnClick = HelpButtonClick
- end
- end
- object MetaInfoPanel: TPanel
- Left = 0
- Top = 19
- Width = 159
- Height = 269
- Align = alLeft
- BevelOuter = bvNone
- TabOrder = 1
- object TableFieldsSplitter: TSplitter
- Left = 0
- Top = 115
- Width = 159
- Height = 3
- Cursor = crVSplit
- Align = alTop
- Beveled = True
- MinSize = 1
- OnCanResize = TableFieldsSplitterCanResize
- end
- object TableListPanel: TPanel
- Left = 0
- Top = 0
- Width = 159
- Height = 115
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- object TableList: TListBox
- Left = 2
- Top = 0
- Width = 158
- Height = 87
- Anchors = [akLeft, akTop, akRight, akBottom]
- ItemHeight = 13
- TabOrder = 0
- OnClick = TableListClick
- OnDblClick = AddTableButtonClick
- end
- object AddTableButton: TButton
- Left = 2
- Top = 90
- Width = 156
- Height = 22
- Anchors = [akLeft, akRight, akBottom]
- Caption = 'Add T&able to SQL'
- TabOrder = 1
- OnClick = AddTableButtonClick
- end
- end
- object FieldsPanel: TPanel
- Left = 0
- Top = 118
- Width = 159
- Height = 151
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 1
- object FieldListLabel: TLabel
- Left = 3
- Top = 3
- Width = 30
- Height = 13
- Caption = '&Fields:'
- FocusControl = FieldList
- end
- object FieldList: TListBox
- Left = 0
- Top = 19
- Width = 158
- Height = 106
- Anchors = [akLeft, akTop, akRight, akBottom]
- ItemHeight = 13
- MultiSelect = True
- TabOrder = 0
- OnDblClick = AddFieldButtonClick
- end
- object AddFieldButton: TButton
- Left = 2
- Top = 128
- Width = 156
- Height = 22
- Anchors = [akLeft, akRight, akBottom]
- Caption = 'Add F&ield to SQL'
- TabOrder = 1
- OnClick = AddFieldButtonClick
- end
- end
- end
- end
-